home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / longint.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  5KB  |  194 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 15 "longint.d"
  17. #include <math.h> 
  18.  
  19. #define    CLASS    LongInteger_c
  20. #define    ivType    LongInteger_iv_t
  21.  
  22. #include "generics.h"
  23.  
  24. object    LongInteger_c;
  25.  
  26.  
  27. #line 28 "longint.c"
  28. typedef struct  _LongInteger_iv_t  {
  29.     long iVal;
  30. }    LongInteger_iv_t;
  31.  
  32.  
  33.  
  34. #line 22 "longint.d"
  35. cmeth objrtn LongInteger_cm_gNewWithLong(object self, long val)
  36. { 
  37.     object obj = oSuper(LongInteger_c, gNew, self)(self); 
  38.     ivType *iv = ivPtr(obj); 
  39.     iv->iVal = val; 
  40.     return(obj); 
  41. } 
  42.  
  43. imeth int LongInteger_im_gHash(object self)
  44. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  45.     double t; 
  46.  
  47.     t = .6125423371 * (unsigned long) iv->iVal; 
  48.     t = t < 0.0 ? -t : t; 
  49.     return (int) (BIG_INT * (t - floor(t))); 
  50. } 
  51.  
  52. imeth int LongInteger_im_gCompare(object self, object obj)
  53. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  54.     long sv, ov; 
  55.  
  56.     ChkArg(obj, 2); 
  57.     if (ClassOf(obj) != CLASS && ClassOf(obj) != Date) 
  58.         return oSuper(LongInteger_c, gCompare, self)(self, obj); 
  59.     if ((sv=iv->iVal) < (ov=ivPtr(obj)->iVal)) 
  60.         return -1; 
  61.     else if (sv == ov) 
  62.         return 0; 
  63.     else 
  64.         return 1; 
  65. } 
  66.  
  67. imeth objrtn LongInteger_im_gStringRepValue(object self)
  68. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  69.     return vSprintf(String, "%ld", iv->iVal); 
  70. } 
  71.  
  72. imeth char LongInteger_im_gCharValue(object self)
  73. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  74.     return (char) iv->iVal; 
  75. } 
  76.  
  77. imeth short LongInteger_im_gShortValue(object self)
  78. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  79.     return (short) iv->iVal; 
  80. } 
  81.  
  82. imeth unsigned short LongInteger_im_gUnsignedShortValue(object self)
  83. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  84.     return (unsigned short) iv->iVal; 
  85. } 
  86.  
  87. imeth long LongInteger_im_gLongValue(object self)
  88. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  89.     return (long) iv->iVal; 
  90. } 
  91.  
  92. imeth double LongInteger_im_gDoubleValue(object self)
  93. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  94.     return (double) iv->iVal; 
  95. } 
  96.  
  97. imeth void * LongInteger_im_gPointerValue(object self)
  98. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  99.     return (void *) &iv->iVal; 
  100. } 
  101.  
  102. imeth objrtn LongInteger_im_gChangeValue(object self, object val)
  103. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  104.     ChkArg(val, 2); 
  105.     iv->iVal = gLongValue(val); 
  106.     return self; 
  107. } 
  108.  
  109. imeth objrtn LongInteger_im_gChangeCharValue(object self, int val)
  110. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  111.     iv->iVal = (long) val; 
  112.     return self; 
  113. } 
  114.  
  115. imeth objrtn LongInteger_im_gChangeShortValue(object self, int val)
  116. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  117.     iv->iVal = (long) val; 
  118.     return self; 
  119. } 
  120.  
  121. imeth objrtn LongInteger_im_gChangeUShortValue(object self, unsigned val)
  122. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  123.     iv->iVal = (long) val; 
  124.     return self; 
  125. } 
  126.  
  127. imeth objrtn LongInteger_im_gChangeLongValue(object self, long val)
  128. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  129.     iv->iVal = (long) val; 
  130.     return self; 
  131. } 
  132.  
  133. imeth objrtn LongInteger_im_gChangeDoubleValue(object self, double val)
  134. { LongInteger_iv_t *iv = GetIVs(LongInteger, self);
  135.     iv->iVal = (long) val; 
  136.     return self; 
  137. } 
  138.  
  139.  
  140. #line 141 "longint.c"
  141.  
  142. objrtn    LongInteger_initialize(void)
  143. {
  144.     static  CRITICALSECTION  cs;
  145.     static  int volatile once = 0;
  146.  
  147.     ENTERCRITICALSECTION(_CI_CS_);
  148.     if (!once) {
  149.         INITIALIZECRITICALSECTION(cs);
  150.         once = 1;
  151.     }
  152.     LEAVECRITICALSECTION(_CI_CS_);
  153.  
  154.     ENTERCRITICALSECTION(cs);
  155.  
  156.     if (LongInteger_c) {
  157.         LEAVECRITICALSECTION(cs);
  158.         return LongInteger_c;
  159.     }
  160.     INHIBIT_THREADER;
  161.     Number_initialize();
  162.     if (LongInteger_c)  {
  163.         ENABLE_THREADER;
  164.         LEAVECRITICALSECTION(cs);
  165.         return LongInteger_c;
  166.     }
  167.     LongInteger_c = gNewClass(Class, "LongInteger", sizeof(LongInteger_iv_t), 0, Number, END);
  168.     cMethodFor(LongInteger, gNewWithLong, LongInteger_cm_gNewWithLong);
  169.     iMethodFor(LongInteger, gUnsignedShortValue, LongInteger_im_gUnsignedShortValue);
  170.     iMethodFor(LongInteger, gChangeDoubleValue, LongInteger_im_gChangeDoubleValue);
  171.     iMethodFor(LongInteger, gDoubleValue, LongInteger_im_gDoubleValue);
  172.     iMethodFor(LongInteger, gCompare, LongInteger_im_gCompare);
  173.     iMethodFor(LongInteger, gChangeLongValue, LongInteger_im_gChangeLongValue);
  174.     iMethodFor(LongInteger, gChangeShortValue, LongInteger_im_gChangeShortValue);
  175.     iMethodFor(LongInteger, gShortValue, LongInteger_im_gShortValue);
  176.     iMethodFor(LongInteger, gPointerValue, LongInteger_im_gPointerValue);
  177.     iMethodFor(LongInteger, gCharValue, LongInteger_im_gCharValue);
  178.     iMethodFor(LongInteger, gStringRepValue, LongInteger_im_gStringRepValue);
  179.     iMethodFor(LongInteger, gChangeUShortValue, LongInteger_im_gChangeUShortValue);
  180.     iMethodFor(LongInteger, gHash, LongInteger_im_gHash);
  181.     iMethodFor(LongInteger, gChangeValue, LongInteger_im_gChangeValue);
  182.     iMethodFor(LongInteger, gLongValue, LongInteger_im_gLongValue);
  183.     iMethodFor(LongInteger, gChangeCharValue, LongInteger_im_gChangeCharValue);
  184.  
  185.     ENABLE_THREADER;
  186.  
  187.     LEAVECRITICALSECTION(cs);
  188.  
  189.     return LongInteger_c;
  190. }
  191.  
  192.  
  193.  
  194.